home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / MATH / FSULTRA1.ZIP / ULTRX_C.ASM < prev    next >
Assembly Source File  |  1992-06-18  |  3KB  |  141 lines
  1. comment ! 
  2. FSU - ULTRA    The greatest random number generator that ever was
  3.         or ever will be.  Way beyond Super-Duper.
  4.         (Just kidding, but we think its a good one.)
  5.  
  6. Authors:    Arif Zaman (arif@stat.fsu.edu) and
  7.         George Marsaglia (geo@stat.fsu.edu).
  8.  
  9. Date:        27 May 1992
  10.  
  11. Version:    1.05
  12.  
  13. Copyright:    To obtain permission to incorporate this program into
  14.         any commercial product, please contact the authors at
  15.         the e-mail address given above or at
  16.  
  17.         Department of Statistics and
  18.         Supercomputer Computations Research Institute
  19.         Florida State University
  20.         Tallahassee, FL 32306.
  21.  
  22. See Also:    README        for a brief description
  23.         ULTRA.DOC    for a detailed description
  24.  
  25. -----------------------------------------------------------------------
  26. ! 
  27. ;
  28. ;  File: ULTRX_C.ASM   (80386 Turbo C calling conventions)
  29. ;
  30.     ifdef    __TINY__
  31.         m equ tiny
  32.     elseifdef __SMALL__
  33.         m equ small
  34.     elseifdef __MEDIUM__
  35.         m equ medium
  36.     elseifdef __COMPACT__
  37.         m equ compact
  38.     elseifdef __LARGE__
  39.         m equ large
  40.     elseifdef __HUGE__
  41.         m equ huge
  42.     endif
  43.     DOSSEG
  44.     .MODEL m,c
  45.  
  46. ;===== GLOBAL FUNCTIONS, SUBROUTINES and VARIABLES =================
  47. ;
  48.     public  i31bit, i15bit, i7bit,  i1bit,  uni,    duni
  49.     public  i32bit, i16bit, i8bit,  rinit,  vni,    dvni
  50.     public    swbstate, swbsize
  51.  
  52. ;===== MACRO DEFINITIONS ===========================================
  53. ;
  54. ; RinitProcStart should take two 32-bit arguments conx and shrx
  55. ;   and place them in eax and ebx.
  56. ;   es and ds should both point to the data segment.
  57. ;   conx must be odd (so we or with 1 just to make sure).
  58. ; FillProc
  59. ;   DS is already the data segment. ES should also be made the same.
  60.  
  61. EnterProcedure   macro saveregs
  62.     if @DataSize eq 2
  63.       mov  dx,@DATA
  64.       push ds
  65.       mov  ds,dx
  66.     endif
  67.     irp    regs,saveregs
  68.     ifidn <regs>,<di>
  69.         push   di
  70.     elseifidn <regs>,<si>
  71.         push   si
  72.     endif
  73.     endm
  74. endm
  75.  
  76. ExitProcedure    macro saveregs
  77.     irp regs,saveregs
  78.     ifidn <regs>,<si>
  79.         pop   si
  80.     elseifidn <regs>,<di>
  81.         pop   di
  82.     endif
  83.     endm
  84.     if @DataSize eq 2
  85.       pop ds
  86.     endif
  87.     ret
  88. endm
  89.  
  90. Enter2arg   macro
  91.   arg conx:dword, shrx:dword
  92.   EnterProcedure <si,di>
  93.     mov ax,ds
  94.     mov es,ax
  95.     mov eax,conx
  96.     shl eax,1
  97.     or  al,1
  98.     mov ebx,shrx
  99. endm
  100.  
  101. Exit2arg     macro
  102.     ExitProcedure <di,si>
  103. endm
  104.  
  105. EnterFill    macro
  106.     mov    ax,ds
  107.     mov    es,ax
  108.     push    di
  109.     push    si
  110. endm
  111.  
  112. ExitFill    macro
  113.     pop    si
  114.     pop    di
  115.     ret
  116. endm
  117.  
  118. DwordFn macro
  119. endm
  120.  
  121. WordFn  macro
  122. endm
  123.  
  124. ByteFn  macro
  125. endm
  126.  
  127. RealFn  macro
  128. endm
  129.  
  130. DoubleFn macro
  131. endm
  132.  
  133. .DATA
  134.   INCLUDE ULTRADAT.INC
  135.  
  136. .STACK 10h
  137.  
  138. .CODE
  139.   INCLUDE ULTRxCOD.INC
  140. END
  141.